home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Lengths / list-n-fibo < prev    next >
Text File  |  1998-10-22  |  992b  |  39 lines
  1. list-n-fibo length &key (scr 0) (num 1)
  2.  
  3. creates a list of fibonacci-numbers which can be said to
  4. be a quantized version of the golden section.
  5. the further you go in the series the closer to the golden
  6. section you get.
  7.  
  8. with scr = scroll (must be a positive integer)
  9. you can scroll to a different start-position in the series.
  10. and with num you can select a different number than the
  11. default 1. 
  12.  
  13. the series should really start with zero which is submitted.
  14.  
  15. (list-n-fibo 13)
  16. ->(1 1 2 3 5 8 13 21 34 55 89 144 233)
  17.  
  18. (list-n-fibo 8 :scr 8 :num 1)
  19. ->(34 55 89 144 233 377 610 987)
  20.  
  21. (list-n-fibo 8 :num 1.5)
  22. ->(1.5 1.5 3.0 4.5 7.5 12.0 19.5 31.5)
  23.  
  24.  
  25.  
  26. (mapcar #'integer-to-symbol 
  27.          (flatten (mapcar #'list 
  28.                             (list-n-fibo 8)
  29.                             (reverse (list-n-fibo 5)))))
  30. ->(b f b d c c d b f b) 
  31.  
  32. (mapcar #'compress 
  33. (mapcar #'list (list-n-fibo 8) 
  34.                 (make-list 8 :initial-element '/12)))
  35. ->(1/12 1/12 2/12 3/12 5/12 8/12 13/12 21/12)
  36.  
  37.  
  38.  
  39.